SD1: FOR x% = 100 TO 3000 STEP 100: SOUND x%, .07: NEXT x%: FOR Y% = 3000 TO 100 STEP -100: SOUND Y%, .07: NEXT Y%: RETURN
WHS: FOR x% = 100 TO 3000 STEP 150: SOUND x%, .3: NEXT x%: FOR Y% = 100 TO 2500 STEP 100: SOUND Y%, .3: NEXT Y%: FOR Z% = 2500 TO 100 STEP -100: SOUND Z%, .3: NEXT Z%: RETURN
IF R1! = 3 AND PLG$ = "2" THEN PRINT " OH! OH!, THAT'S 3. THE SHY ONE IS OUT OF THE GAME! ": CPLR1$ = "OUT OF GAME": CPLR2$ = "THE BRAVE ONE"
IF R2! = 3 AND PLG$ = "2" THEN PRINT " OH! OH!, THAT'S 3. THE SHY ONE IS OUT OF THE GAME! ": CPLR2$ = "OUT OF GAME": CPLR1$ = "THE BRAVE ONE"
LOCATE 22, 18
IF R1! = 3 AND PLG$ = "3" THEN CPLR1$ = "OUT OF GAME": PL4$ = "OTHER PLAYER": PRINT " OH! OH!, THAT'S 3. "; PL1$; " IS OUT OF THE GAME!": PL1$ = "OTHER PLAYER"
IF R2! = 3 AND PLG$ = "3" THEN CPLR2$ = "OUT OF GAME": PL5$ = "OTHER PLAYER": PRINT " OH! OH!, THAT'S 3. "; PL2$; " IS OUT OF THE GAME!": PL2$ = "OTHER PLAYER"
IF R3! = 3 AND PLG$ = "3" THEN CPLR3$ = "OUT OF GAME": PL6$ = "OTHER PLAYER": PRINT " OH! OH!, THAT'S 3. "; PL3$; " IS OUT OF THE GAME!": PL3$ = "OTHER PLAYER"
IF R1! = 3 AND PLG$ = "4" THEN CPLR1$ = "OUT OF GAME": PRINT " OH! OH!, THAT'S 3. "; PL1$; " IS OUT OF THE GAME! ": PL1$ = "OLDEST PLAYER"
IF R2! = 3 AND PLG$ = "4" THEN CPLR2$ = "OUT OF GAME": PRINT " OH! OH!, THAT'S 3. "; PL2$; " IS OUT OF THE GAME! ": PL2$ = "LEFT PLAYER"
IF R3! = 3 AND PLG$ = "4" THEN CPLR3$ = "OUT OF GAME": PRINT " OH! OH!, THAT'S 3. "; PL3$; " IS OUT OF THE GAME! ": PL3$ = "RIGHT PLAYER"
IF R4! = 3 AND PLG$ = "4" THEN CPLR4$ = "OUT OF GAME": PRINT " OH! OH!, THAT'S 3. "; PL4$; " IS OUT OF THE GAME! ": PL4$ = "YOUNGEST PLAYER"
IF R1! = 3 AND PLG$ = "5" THEN CPLR1$ = "OUT OF GAME": PRINT " OH! OH!, THAT'S 3. "; PL1$; " IS OUT OF THE GAME! ": PL1$ = "RIGHT PLAYER"
IF R2! = 3 AND PLG$ = "5" THEN CPLR2$ = "OUT OF GAME": PRINT " OH! OH!, THAT'S 3. "; PL2$; " IS OUT OF THE GAME! ": PL2$ = "LEFT PLAYER"
IF R3! = 3 AND PLG$ = "5" THEN CPLR3$ = "OUT OF GAME": PRINT " OH! OH!, THAT'S 3. "; PL3$; " IS OUT OF THE GAME! ": PL3$ = "OLDEST PLAYER"
IF R4! = 3 AND PLG$ = "5" THEN CPLR4$ = "OUT OF GAME": PRINT " OH! OH!, THAT'S 3. "; PL4$; " IS OUT OF THE GAME! ": PL4$ = "YOUNGEST PLAYER"
IF R5! = 3 AND PLG$ = "5" THEN CPLR5$ = "OUT OF GAME": PRINT " OH! OH!, THAT'S 3. "; PL5$; " IS OUT OF THE GAME! ": PL5$ = "SHORTEST PLAYER"
IF R1! = 3 AND PLG$ = "6" THEN CPLR1$ = "OUT OF GAME": PRINT " OH! OH!, THAT'S 3. "; PL1$; " IS OUT OF THE GAME! ": PL1$ = "TALLEST PLAYER"
IF R2! = 3 AND PLG$ = "6" THEN CPLR2$ = "OUT OF GAME": PRINT " OH! OH!, THAT'S 3. "; PL2$; " IS OUT OF THE GAME! ": PL2$ = "SHORTEST PLAYER"
IF R3! = 3 AND PLG$ = "6" THEN CPLR3$ = "OUT OF GAME": PRINT " OH! OH!, THAT'S 3. "; PL3$; " IS OUT OF THE GAME! ": PL3$ = "RIGHT PLAYER"
IF R4! = 3 AND PLG$ = "6" THEN CPLR4$ = "OUT OF GAME": PRINT " OH! OH!, THAT'S 3. "; PL4$; " IS OUT OF THE GAME! ": PL4$ = "LEFT PLAYER"
IF R5! = 3 AND PLG$ = "6" THEN CPLR5$ = "OUT OF GAME": PRINT " OH! OH!, THAT'S 3. "; PL5$; " IS OUT OF THE GAME! ": PL5$ = "OLDEST PLAYER"
IF R6! = 3 AND PLG$ = "6" THEN CPLR6$ = "OUT OF GAME": PRINT " OH! OH!, THAT'S 3. "; PL6$; " IS OUT OF THE GAME! ": PL6$ = "YOUNGEST PLAYER"
IF R1! = 3 THEN R1! = 0
IF R2! = 3 THEN R2! = 0
IF R3! = 3 THEN R3! = 0
IF R4! = 3 THEN R4! = 0
IF R5! = 3 THEN R5! = 0
IF R6! = 3 THEN R6! = 0
LOCATE 23, 22: COLOR 14, 0: PRINT " PRESS ANY KEY TO RETURN TO THE GAME "
REDOGOBACK: GOBACK$ = INKEY$: IF GOBACK$ = "" THEN GOTO REDOGOBACK
GOSUB SD1: RETURN
SKIPOUT: BLOAD "RISK-IT2.WR2"
STRIPTIME: STRIPDANCE$ = INKEY$: IF STRIPDANCE$ = "" THEN GOTO STRIPTIME
GOSUB SD1: COLOR 0, 0
LOCATE 21, 8: PRINT " "
LOCATE 22, 8: PRINT " "
LOCATE 23, 8: PRINT " "
COLOR 14, 0: LOCATE 22, 13: PRINT " OK SPORT! YOUR 1 MINUTE TIMER HAS JUST STARTED!"
SLEEP 60: GOSUB WHS
IF R1! = 3 THEN OO1! = 1
IF R2! = 3 THEN OO2! = 1
IF R3! = 3 THEN OO3! = 1
IF R4! = 3 THEN OO4! = 1
IF R5! = 3 THEN OO5! = 1
IF R6! = 3 THEN OO6! = 1
IF R1! = 3 THEN R1! = 0
IF R2! = 3 THEN R2! = 0
IF R3! = 3 THEN R3! = 0
IF R4! = 3 THEN R4! = 0
IF R5! = 3 THEN R5! = 0
IF R6! = 3 THEN R6! = 0
RETURN
GTMR: COLOR 15, 4: LOCATE 7, 10: GOSUB TEX2: PRINT " THE TIMER HAS STARTED! I'M WATCHING, SO GET AT IT! ": RETURN
QENDS: COLOR 1, 1
IF PAID$ = "1" THEN BLOAD "RISK-IT2.END"
IF PAID$ <> "1" THEN BLOAD "RISK-IT2.EN2": SHARE! = 0
REDOEND: END$ = INKEY$: IF END$ = "" THEN GOTO REDOEND
IF END$ = "Q" THEN COLOR 7, 0: CLS : END
IF END$ = "R" AND PAID$ = "1" THEN CLEAR : DEF SEG = &HB800: NOT$ = "1": PAID$ = "1": END$ = "R": GOTO NAMES
IF END$ = "R" AND PAID$ <> "1" THEN CLEAR : DEF SEG = &HB800: NOT$ = "1": END$ = "R": GOTO NAMES
GOSUB BOOB: GOTO QENDS
CMDS2: COLOR 15, 0: LOCATE 18, 15
IF C2! = 2 THEN GOTO C22
IF C2! = 3 THEN GOTO C23
IF C2! = 4 THEN GOTO C24
IF C2! = 5 THEN GOTO C25
C22: PRINT "TAKE A BLOWN UP BALLOON THAT IS PRETTY FIRM AND"
LOCATE 19, 15: PRINT "SIT ON IT AND TRY TO BREAK IT BEFORE WHISTLE!"